home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / northrup downs.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  384 lines
  1. 0 REM ***** NORTHRUP DOWNS *****
  2. 5 REM TR$=" 2:09.9[153]":RR=.001:GOSUB2500:REM BOOTSTRAP HR FILE
  3. 10 REM ** INITIALIZE VIDEO **
  4. 12 POKE53280,11:PRINT"[147][153]":POKE53281,0
  5. 13 PRINTTAB(12)"                "
  6. 14 PRINTTAB(12)" NORTHRUP DOWNS "
  7. 15 PRINTTAB(12)"                [146]"
  8. 17 REM *** READ DATA FILE ***
  9. 18 OPEN15,8,15:OPEN2,8,2,"0:HR,S,R"
  10. 19 GOSUB6000:REM CHECK ERROR CHANNEL
  11. 20 INPUT#2,T
  12. 21 INPUT#2,T0
  13. 22 INPUT#2,T1
  14. 24 INPUT#2,RR
  15. 25 FORH=1TO8
  16. 26 : INPUT#2,W(H)
  17. 27 : INPUT#2,P(H)
  18. 28 : INPUT#2,S(H)
  19. 29 NEXT
  20. 30 CLOSE2:CLOSE15
  21. 31 REM * ASSEMBLE TR$ *
  22. 32 T1$=MID$(STR$(T1),2,4):IFT1<10THENT1$="0"+T1$:IFT1<1THENT1$="0"+T1$
  23. 33 IFT1=INT(T1)THENT1$=T1$+".0"
  24. 35 TR$=CHR$(T)+STR$(T0)+":"+T1$+"[153]"
  25. 50 REM * HORSES NAMES:H$(SN) *
  26. 51 H$(0)="8 LIGHTNING  "
  27. 52 H$(1)="7 REDLINE    "
  28. 53 H$(2)="[159]6 CYANIDE    "
  29. 54 H$(3)="[156]5 ULTRAVIOLET"
  30. 55 H$(4)="4 GREEN JEANS"
  31. 56 H$(5)="3 BLUE NOTE  "
  32. 57 H$(6)="[158]2 DANDY LINE "
  33. 58 H$(7)="[129]1 O.J.SAM    "
  34. 60 REM * ODDS STRINGS:O$(SN) *
  35. 61 O$(1)="3/1[153]"
  36. 62 O$(2)="4/1[153]"
  37. 63 O$(3)="5/1[153]"
  38. 64 O$(4)="6/1[153]"
  39. 65 O$(5)="7/1[153]"
  40. 66 O$(6)="8/1[153]"
  41. 67 O$(7)="9/1[153]"
  42. 68 O$(0)="2/1[153]"
  43. 70 REM * PAYOFFS:P$(SN) *
  44. 71 P$(1)="  8.00  5.00  3.40"
  45. 72 P$(2)=" 10.00  6.00  4.00"
  46. 73 P$(3)=" 12.00  7.00  4.60"
  47. 74 P$(4)=" 14.00  8.00  5.40"
  48. 75 P$(5)=" 16.00  9.00  6.00"
  49. 76 P$(6)=" 18.00 10.00  6.60"
  50. 77 P$(7)=" 20.00 11.00  7.40"
  51. 78 P$(0)="  6.00  4.00  2.60"
  52. 79 GOSUB1080:GOSUB500:GOSUB1600:RC=1:GOSUB2600:GOTO81:REM **** BEGIN ****
  53. 80 GOSUB500:RC=RC+1:REM *** CONTINUE ***
  54. 81 REM *** RACING FORM ***
  55. 82 PRINT"[147]        NORTHRUP DOWNS : RACE # [157]"RC"[157] [146]"
  56. 83 PRINT""TAB(24)" LAST"RR"[157] RACES [146]"
  57. 84 PRINT"#    HORSE    ODDS       1ST  2ND  3RD "
  58. 86 FORSN=7TO0STEP-1
  59. 88 : PRINTH$(SN)+" "+O$(O(8-SN))TAB(24)W(8-SN)TAB(29)P(8-SN)TAB(34)S(8-SN)
  60. 89 : PRINT
  61. 90 NEXT
  62. 92 PRINTLEFT$(TR$,1);
  63. 94 PRINT""TAB(8)"TRACK RECORD: "TR$;
  64. 100 IFRC<>1THEN140
  65. 105 REM *** INITIALIZE BETTING ***
  66. 110 INPUT"NUMBER OF BETTORS";BN$
  67. 111 BN=VAL(BN$):IFBN=0ANDBN$<>"0"THEN110
  68. 112 IFBN=0THEN175
  69. 115 DIMB$(BN):DIMBB$(BN,10):DIMM(BN):DIMM$(BN):DIMB(BN)
  70. 125 FORX=1TOBN
  71. 130 :  PRINT"NAME OF BETTOR #"X"                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  72. 131 :  INPUTB$(X):B$(X)=LEFT$(B$(X),14):PRINT"[145]                                "
  73. 132 :  M$(X)="$0.00"
  74. 135 NEXT
  75. 140 IFBN=0THEN175
  76. 141 FORX=1TOBN
  77. 142 :  B(X)=0
  78. 143 :  TB=38-LEN(M$(X))
  79. 145 :  PRINT""B$(X)"                ":IFM(X)<0THENPRINT"[150]";
  80. 146 :  PRINT""TAB(TB-5)"     "M$(X)"[146][153] ":IFRC=0ORBN=0THENPRINT"":GOTO175
  81. 150 :    PRINT"AMOUNT OF BET             [157][157][157][157][157][157][157][157][157][157][157][157][157]";:BT$=""
  82. 151 :    INPUTBT$:IFBT$="0"ORBT$=""THEN170
  83. 152 :    IFVAL(BT$)=0THEN150
  84. 153 :    IFVAL(BT$)/5<>INT(VAL(BT$)/5)ANDVAL(BT$)/2<>INT(VAL(BT$)/2)THEN150
  85. 154 :    B(X)=B(X)+1
  86. 155 :    IFVAL(BT$)>999THEN150
  87. 156 :    INPUT"NUMBER OF HORSE       [157][157][157][157][157][157]";HB$
  88. 157 :    IFVAL(HB$)<1ORVAL(HB$)>8THEN155
  89. 160 :    PRINT"W[146]IN P[146]LACE OR S[146]HOW     [157][157][157][157][157]";
  90. 161 :    INPUTKB$
  91. 162 :    IFKB$<>"W"ANDKB$<>"P"ANDKB$<>"S"THENPRINT"[145]":GOTO160
  92. 165 :    BB$(X,B(X))=BT$+"  "+HB$+"  "+KB$
  93. 166 :    IFB(X)>9THEN170
  94. 167 :    GOTO150
  95. 170 NEXTX
  96. 174 GOTO 176
  97. 175 PRINT"SPACEBAR TO PROCEED  ":WAIT197,32:IFBN>0THEN170
  98. 176 IFRC>0THEN180
  99. 177 IFBN=0THEN1550
  100. 178 GOTO1500
  101. 180 PRINT"[147][145]START       NORTHRUP DOWNS[146]           1/4"
  102. 185 GOTO1240
  103. 500 REM *** INITIALIZE SPRITES ***
  104. 503 V=53248:POKEV+27,255
  105. 505 FORSN=0TO7
  106. 510 :  POKE2040+SN,14
  107. 520 :  POKEV+SN*2,172
  108. 530 :  POKEV+SN*2+1,88+16*(7-SN)
  109. 540 :  POKEV+40+SN,2+SN
  110. 545 NEXT
  111. 550 REM *** ENABLE SPRITES ***
  112. 560 POKEV+21,255
  113. 565 RETURN
  114. 1080 REM *** POKE THE SPRITE DATA ***
  115. 1100 FORS=896TO958
  116. 1105 :  READDT
  117. 1110 :  POKES,DT
  118. 1120 NEXTS
  119. 1130 FORN=832TO894
  120. 1135 :  READDT
  121. 1140 :  POKEN,DT
  122. 1145 NEXTN
  123. 1150 RETURN
  124. 1200 REM *** BELL  AT THE POST ***
  125. 1201 S=54272
  126. 1202 POKES+24,15:REM VOL
  127. 1203 POKES+5,9:POKES+6,220:REM A/D S/R
  128. 1204 FORX=1TO20
  129. 1205 :  POKES+1,68:POKES,149:REM HF LF
  130. 1206 :  POKES+4,17:REM WF
  131. 1207 :  FORY=1TO2:NEXTY
  132. 1208 :  POKES+1,0:POKES,0
  133. 1209 NEXTX
  134. 1210 POKES+4,16:POKES+24,0
  135. 1215 PRINT"THEY'RE AT THE POST!"
  136. 1220 REM ** RANDOM BEGINNING **
  137. 1222 TM$=STR$(TI)
  138. 1224 B=VAL(RIGHT$(TM$,3))
  139. 1225 FORX=1TO250:NEXT
  140. 1226 FORX=0TOB:C=RND(1):NEXT
  141. 1230 PRINT"                     "
  142. 1235 RETURN
  143. 1240 REM *** RACE SULKY SPRITES ***
  144. 1241 FI=0
  145. 1242 FORSN=0TO7:HP(SN)=24:POKEV+2*SN,HP(SN):ID(SN)=20:NEXT:POKEV+16,0:GOSUB1200
  146. 1243 TI$="000000":TM=TI:FORSN=0TO7:QQ(SN)=ID(SN)*10:TN(SN)=0:HH(SN)=0:NEXT
  147. 1244 SN=SN-1:IFSN<0THENSN=7:REMRACELOOP
  148. 1245 :   PRINT""SPC(17)""MID$(TI$,4,1);":";RIGHT$(TI$,2)"[146]"
  149. 1246 :   XX=INT(RND(1)*2000)+1
  150. 1248 :   IFXX<QQ(SN)THEN1244
  151. 1249 :   PK=PEEK(2040+SN)
  152. 1250 :   IFPK=13THEN1252
  153. 1251 :   HP(SN)=HP(SN)+ID(SN):GOTO1253
  154. 1252 :   HP(SN)=HP(SN)-ID(SN)
  155. 1253 :   SF=HP(SN)>255
  156. 1254 :   IFHP(SN)<0THENHP(SN)=0
  157. 1255 :   POKE V+2*SN,HP(SN)+ (SF * 256)
  158. 1256 :   IFSFTHENPOKEV+16,PEEK(V+16)OR2^SN
  159. 1257 :   IFNOTSFTHENPOKEV+16,PEEK(V+16)AND255-2^SN
  160. 1258 :   IFHP(SN)>320AND(TN(SN)=0ORTN(SN)=2)THENGOSUB1285
  161. 1260 :   IFHP(SN)<20AND(TN(SN)=1ORTN(SN)=3)THENGOSUB1280
  162. 1274 GOTO1244
  163. 1275 REM *** CHANGE DIRECTIONS ***
  164. 1280 POKE2040+SN,14:GOTO1290
  165. 1285 POKE2040+SN,13
  166. 1290 TN(SN)=TN(SN)+1:REM # OF TURNS
  167. 1291 HH(TN(SN))=HH(TN(SN))+1
  168. 1292 IFHH(TN(SN))=1ANDTN(SN)=1THENPRINT"[145]1/2   ":GOSUB1400
  169. 1293 IFHH(TN(SN))=1ANDTN(SN)=2THENPRINT"[145]"TAB(37)"3/4[157][157][157][157][157][157]      "
  170. 1295 IFHH(TN(SN))=1ANDTN(SN)=3THENPRINT"[145]FINISH[157][157][157][157][157][157][157]       "
  171. 1296 POKE1063,52:POKE55335,13:GOSUB1400
  172. 1299 IFTN(SN)<4THENRETURN
  173. 1300 REM *** ORDER OF FINISH ***
  174. 1302 FI=FI+1
  175. 1303 PRINT""
  176. 1304 FORI=-1TO7-SN:PRINT"":NEXT
  177. 1305 IFFI=1THENPRINTTAB(5)"WIN":POKEV+2*SN,35:WS=SN
  178. 1306 IFFI=2THENPRINTTAB(5)"PLACE":POKEV+2*SN,30:PS=SN
  179. 1307 IFFI=3THENPRINTTAB(5)"SHOW":POKEV+2*SN,25:SS=SN
  180. 1308 QQ(SN)=QQ(SN)+2000+FI(SN)
  181. 1310 REM *** ORDER OF FINISH ***
  182. 1315 FI$(FI)=H$(SN)
  183. 1320 IFFI<8THENRETURN
  184. 1330 REM *** RE$ULT$ ***
  185. 1335 POKEV+21,0
  186. 1336 PRINT"[147]"
  187. 1337 PRINT"[145]            NORTHRUP DOWNS[146]"
  188. 1338 PRINTTAB(16)""TF$"[146]"
  189. 1340 PRINT""TAB(12)"ORDER OF FINISH[146]"
  190. 1345 PRINT
  191. 1351 PRINTFI$(1)P$(O(8-WS)):PRINT
  192. 1352 PRINTFI$(2)SPC(6)RIGHT$(P$(O(8-PS)),12):PRINT
  193. 1353 PRINTFI$(3)SPC(12)RIGHT$(P$(O(8-SS)),6):PRINT
  194. 1354 FORFI=4TO8
  195. 1355 :  PRINTFI$(FI)
  196. 1357 :  PRINT
  197. 1360 NEXT
  198. 1365 REM TABULATE BET RESULTS
  199. 1367 W=8-WS:P=8-PS:S=8-SS
  200. 1368 IFBN=0THEN1386
  201. 1370 FORX=1TOBN
  202. 1371 : IFB(X)=0THEN1385
  203. 1372 : FORB=1TOB(X)
  204. 1373 :   KB$=RIGHT$(BB$(X,B),1)
  205. 1374 :   HB=VAL(MID$(BB$(X,B),4,4))
  206. 1375 :   MB=VAL(LEFT$(BB$(X,B),3))
  207. 1376 :   IFKB$="W"ANDHB=WTHENM(X)=M(X)+(VAL(LEFT$(P$(O(HB)),7))/2)*MB
  208. 1377 :   IFKB$="P"AND(HB=WORHB=P)THENM(X)=M(X)+(VAL(MID$(P$(O(HB)),8,6))/2)*MB
  209. 1378 :   SX$=(RIGHT$(P$(O(HB)),6))
  210. 1379 :   IFKB$="S"AND(HB=WORHB=PORHB=S)THENM(X)=M(X)+(VAL(SX$)/2)*MB
  211. 1380 :   M(X)=M(X)-MB:M(X)=INT((M(X)+.005)*100)/100
  212. 1381 : NEXTB
  213. 1382 : MM$="$"+STR$(M(X)+.001):IFM(X)<0THENMM$="$"+STR$(M(X)-.001)
  214. 1383 : IFM(X)=0THENMM$="$0.000"
  215. 1384 : LL=LEN(MM$)-1:M$(X)=LEFT$(MM$,LL)
  216. 1385 NEXTX
  217. 1386 REM *** DATA UPDATE ***
  218. 1387 W(W)=W(W)+1:P(P)=P(P)+1:S(S)=S(S)+1
  219. 1388 IFVAL(LEFT$(TF$,1))>VAL(MID$(TR$,3,1))THEN1394
  220. 1389 IFVAL(LEFT$(TF$,1))<VAL(MID$(TR$,3,1))THEN1393
  221. 1390 IFVAL(MID$(TF$,3,4))=<VAL(MID$(TR$,5,4))THEN1393
  222. 1392 GOTO1394
  223. 1393 TR$=LEFT$(FI$(1),1)+" "+TF$+"[153]"
  224. 1394 RR=RR+1:GOSUB2600
  225. 1395 PRINT"[153]          ANOTHER RACE Y[146]/N[146]";
  226. 1396 INPUTA$:IFA$<>"Y"ANDA$<>"N"THENPRINT"[145][145][145][145]":GOTO1395
  227. 1397 IFA$="N"THENRC=-1
  228. 1398 PRINT"[147]":GOTO80
  229. 1400 REM *** TIME ***
  230. 1410 TT=(TI-TM)/6:REMELAPSEDTIMEBY1/10S
  231. 1414 REM POST & PACE HANDICAPS
  232. 1415 HC=TT-310*TN(SN)+INT((7-SN)*TN(SN)):REM +=SLOW -=FAST
  233. 1416 ID(SN)=ID(SN)+INT(HC/20):REM SHRTN HARES STEPS  LNGTHN TORTISES
  234. 1418 QQ(SN)=ID(SN)*10:REM <>QUICK QUOTA
  235. 1420 REM * VALUE OF TIME STRING *
  236. 1421 M=INT(TT/600):REMMINUTES
  237. 1425 RT=TT-M*600:REMAINDER
  238. 1430 S=INT(RT/10):REMSECONDS
  239. 1440 T=INT(RT-S*10):REM:TENTHSECONDS
  240. 1445 REM * DISPLAY TIME *
  241. 1450 MM$=STR$(M):M$=RIGHT$(MM$,1):IFM=0THENM$=" "
  242. 1460 SS$=STR$(S):S$=RIGHT$(SS$,2)
  243. 1465 IFS<10THENS$="0"+RIGHT$(STR$(S),1)
  244. 1470 TT$=STR$(T):T$=RIGHT$(TT$,1)
  245. 1480 TM$=M$+":"+S$+"."+T$
  246. 1484 IFNOTHH(TN(SN))=1THEN1498
  247. 1485 PRINT"[145]"
  248. 1490 IFTN(SN)=1THENPRINTTAB(34)"[145]"TM$"[146]"
  249. 1492 IFTN(SN)=2THENPRINT"[145]"TM$"[146]"
  250. 1494 IFTN(SN)=3THENPRINTTAB(34)"[145]"TM$"[146]"
  251. 1496 IFTN(SN)=4THENPRINT"[145]"TM$"[146]":TF$=TM$
  252. 1498 RETURN
  253. 1500 REM *** END OF MEETING ***
  254. 1505 POKEV+21,0
  255. 1510 PRINT"[147]"TAB(13)"$ RE$ULT$ $"
  256. 1515 PRINT
  257. 1520 FORX=1TOBN
  258. 1524 : IFM(X)<0THENPRINT"[150]";
  259. 1525 : PRINTB$(X)":"M$(X)"[153]"
  260. 1526 : PRINT
  261. 1528 : IFX/8=INT(X/8)THENPRINT"         SPACEBAR TO PROCEED":WAIT197,32:PRINT"[147]"
  262. 1530 NEXT
  263. 1550 GOSUB 2500
  264. 1555 IFBN=0THENPRINT"[147]":POKEV+21,0
  265. 1560 END
  266. 1600 REM *** TRUMPET THE RACES ***
  267. 1610 S=54272:FORX=STOS+24:POKEX,0:NEXT:REM CLEAR SID
  268. 1615 POKES+24,12:REM VOLUME
  269. 1620 POKES+5,96:POKES+6,32:REM VC#1 A/D S/R
  270. 1625 REM * READ & PLAY MUSIC *
  271. 1630 :  READH:IFH=-1THENPOKES+24,0:RETURN:REM HI FREQ & EXIT
  272. 1635 :  READL:REM LO FREQ
  273. 1640 :  READD:REM NOTE DURATION
  274. 1650 :  POKES+1,H:POKES,L:POKES+4,33:REM PLAY THE NOTE
  275. 1660 :  FORX=1TOD/2:NEXT:REM NOTE DURATION
  276. 1665 :  POKES+4,34:REM STOP THE NOTE
  277. 1680 GOTO 1625
  278. 2000 REM *** SPRITE DATA ***
  279. 2100 REM * SULKY.S *
  280. 2103 DATA 000,000,000
  281. 2106 DATA 000,000,000
  282. 2109 DATA 000,000,000
  283. 2112 DATA 000,000,000
  284. 2115 DATA 224,000,016
  285. 2118 DATA 224,000,024
  286. 2121 DATA 224,000,031
  287. 2124 DATA 064,000,031
  288. 2127 DATA 252,000,063
  289. 2130 DATA 231,255,216
  290. 2133 DATA 224,000,024
  291. 2136 DATA 227,255,248
  292. 2139 DATA 245,255,252
  293. 2142 DATA 249,255,252
  294. 2145 DATA 255,255,252
  295. 2148 DATA 253,176,108
  296. 2151 DATA 113,176,108
  297. 2154 DATA 137,176,108
  298. 2157 DATA 168,160,040
  299. 2160 DATA 137,016,068
  300. 2163 DATA 114,008,130
  301. 2200 REM * SULKY.N *
  302. 2203 DATA 000,000,000
  303. 2206 DATA 000,000,000
  304. 2209 DATA 000,000,000
  305. 2212 DATA 000,000,000
  306. 2215 DATA 008,000,007
  307. 2218 DATA 024,000,007
  308. 2221 DATA 248,000,007
  309. 2224 DATA 248,000,002
  310. 2227 DATA 252,000,063
  311. 2230 DATA 027,255,231
  312. 2233 DATA 024,000,007
  313. 2236 DATA 031,255,199
  314. 2239 DATA 063,255,175
  315. 2242 DATA 063,255,159
  316. 2245 DATA 063,255,255
  317. 2248 DATA 054,013,191
  318. 2251 DATA 054,013,142
  319. 2254 DATA 020,005,017
  320. 2257 DATA 034,008,149
  321. 2260 DATA 065,016,081
  322. 2263 DATA 128,160,046
  323. 2300 REM *** MUSIC DATA ***
  324. 2303 DATA28,49,256,33,135,256,42,62,256
  325. 2306 DATA50,60,256,50,60,128,50,60,128,50,60,256
  326. 2309 DATA42,62,256,42,62,128,42,62,128,42,62,256
  327. 2312 DATA33,135,256,42,62,256,33,135,256
  328. 2315 DATA25,30,1024
  329. 2318 DATA28,49,256,33,135,256,42,62,256
  330. 2321 DATA50,60,256,50,60,128,50,60,128,50,60,256
  331. 2324 DATA42,62,256,42,62,128,42,62,128,42,62,256
  332. 2327 DATA25,30,256,25,30,256,25,30,256
  333. 2330 DATA33,130,2048,-1
  334. 2500 REM *** WRITE DATA FILE ***
  335. 2502 REM DISASSEMBLE TR$ *
  336. 2504 T=ASC(LEFT$(TR$,1))
  337. 2505 T0=VAL(MID$(TR$,2,2))
  338. 2506 T1=VAL(MID$(TR$,5,5))
  339. 2510 OPEN15,8,15:OPEN2,8,2,"@0:HR,S,W"
  340. 2520 GOSUB6000:REM CHECK ERROR CHANNEL
  341. 2525 PRINT#2,T
  342. 2530 PRINT#2,T0
  343. 2532 PRINT#2,T1
  344. 2535 PRINT#2,RR
  345. 2540 FORH=1TO8
  346. 2545 : PRINT#2,W(H)
  347. 2546 : PRINT#2,P(H)
  348. 2547 : PRINT#2,S(H)
  349. 2550 NEXT
  350. 2560 CLOSE2:CLOSE15
  351. 2570 RETURN
  352. 2600 REM *** CALCULATE ODDS ***
  353. 2605 RQ=RR:RX=0:IFRR>999THENRR=100
  354. 2610 FORH=1TO8
  355. 2612 :  IFRQ<1000THEN2620
  356. 2613 :  W(H)=INT((W(H)+5)/10)
  357. 2614 :  P(H)=INT((P(H)+5)/10)
  358. 2615 :  S(H)=INT((S(H)+5)/10)
  359. 2620 :  OO(H)=(W(H)*3+P(H)*2+S(H))/(RR*.9)
  360. 2626 :  IFRQ>999THENRX=RX+((OO(H)*RR*.9)/6):REM VALUE TO ROUND FOR ADJUSTED RR
  361. 2630 :  IFOO(H)/6<.105THENO(H)=7
  362. 2631 :  IFOO(H)/6>.105THENO(H)=6
  363. 2632 :  IFOO(H)/6>.118THENO(H)=5
  364. 2633 :  IFOO(H)/6>.134THENO(H)=4
  365. 2634 :  IFOO(H)/6>.155THENO(H)=3
  366. 2635 :  IFOO(H)/6>.184THENO(H)=2
  367. 2636 :  IFOO(H)/6>.225THENO(H)=1
  368. 2637 :  IFOO(H)/6>.29THENO(H)=0
  369. 2640 NEXTH
  370. 2645 IFRQ>999THENRR=INT(RX+.5):REM ADJUST RR FOR ROUNDOFF VARIANCES
  371. 2649 IFRR<1THENRR=0
  372. 2650 RETURN
  373. 6000 REM *** D.O.S. ERROR CHECK ***
  374. 6004 INPUT#15,A,B$,C,D
  375. 6005 IFA<20THENRETURN
  376. 6010 CLOSE2:CLOSE15:PRINTA:PRINTB$:PRINTC:PRINTD:END
  377. 7000 *********************
  378. 7001 *                   *
  379. 7002 * LARRY HAUSER      *
  380. 7003 * 227 W.NORTHRUP    *
  381. 7004 * LANSING, MI 48910 *
  382. 7005 *                   *
  383. 7006 *********************
  384.